8bitfiles.net/archives/archives.tar/archives/compuserve-file-archive/19 Adventure Games/ROBADV.BIN

Commodore BASIC | 2019-04-13 | 12.8 KB | 412 lines

0 XY=1
1 E=300:EC=40:MN=1:PN=5:T$="EMPTY":FQ=5
2 POKE53281,0:POKE53280,2:PRINT"[147]"
18 FORA=1TO30
19 PRINT"[147][156]ROBOT ADVENTURE[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]BY ANDREW BLEVINS"
20 PRINT"ROBOT ADVENTURE[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]BY ANDREW BLEVINS[147]"
21 NEXTA
22 IFXY=5THENGOTO100
23 PRINT"ROBOT ADVENTURE[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]                 "
24 PRINT"[144]YOUR MISSION IS TO GO TO THE CITY VEELA AND FIND KEYS,AN INTERFACE"
25 PRINT"AND A SECRET SODA MACHINE.              THEN GO TO YOUR ENERGY BOX."
26 PRINT"ENTER YOUR HOVERCRAFT TO FLY TO THE CITYBARSTRA WHERE A CRAZED"
27 PRINT"COMPUTER IS TO BLOW UP BOTH CITIES ON   ITS CRAZY WHIM! AND YOU ARE"
28 PRINT"THE CITIES ONLY HOPE. YOU WILL RECIEVE  MORE INSTRUCTIONS ONCE IN THE"
29 PRINT"CITY OF BARSTRA. SO TRY TO FIND ALL THE UNITS IN VEELA FOR YOUR TRIP!"
30 PRINT"YOUR MACHINE HAS THE ABILITY TO ABSORB  ENERGY FROM THINGS CONTAINING"
31 PRINT"ENERGY AND EACH CITY CAN ABSORB ENERGY  TOO, SO BE CAREFUL AND WATCH"
32 PRINT"OUT FOR ZAPS IN THE CITIES AND REMEMBER YOU RUN SOLEY ON ENERGY!"
33 FORA=55496TO56216:POKEA,1:FORB=1TO40:NEXTB:NEXTA
35 PRINT"[147]"
100 PRINT"YOU ARE SAFE IN YOUR ENERGY BOX NOW AND YOU HAVE";E"ENERGY UNITS."
101 POKE53280,2
105 B$="":PRINT"WHICH WAY DO YOU NEED TO TRAVEL":INPUT"V=VEELA H=HOVERCRAFT";B$
110 IFB$=""THENGOTO100
115 IFB$="V"THENGOTO200
120 IFB$="H"THENGOTO10000
125 GOTO100
200 PRINT"[147]*******WELCOME TO THE CITY VEELA!*******":POKE53280,7
210 FORA=1TO1000:NEXTA
211 FORA=1TO500:NEXTA:IFE<5THENGOTO50000
215 IFMN=1THENGOTO300
216 IFMN=2THEN310
217 IFMN=3THEN320
218 IFMN=4THEN330
219 IFMN=5THEN340
220 IFMN=6THEN350
221 IFMN=7THEN360
222 IFMN=8THEN370
223 IFMN=9THEN380
224 IFMN=10THEN390
300 GOSUB1000:PRINT"GATE BEHIND YOU-HUMS FROM THE EAST AND  WEST."
301 GOSUB1500
302 IFB$="N"THEN100
303 IFB$="S"THENMN=5
304 IFB$="E"THENPRINT"ZAP!******":MN=2:E=E-7
305 IFB$="W"THENPRINT"ZAP!******":MN=3:E=E-7
306 GOTO211
310 GOSUB1000:PRINT"DARKNESS NORTH-TUNNEL EAST-HUMMING SOUNDTO THE WEST."
311 GOSUB1500
312 IFB$="N"THENPRINT"BASH!******":E=E-14:MN=2
313 IFB$="S"THENMN=6
314 IFB$="E"THENMN=2:PQ=0:GOTO9000
315 IFB$="W"THENPRINT"ZAP!******":MN=1:E=E-7
316 GOTO211
320 GOSUB1000:PRINT"YOU CAN SEE MORE PEOPLE AND YOU FACE TO THE SOUTH."
321 GOSUB1500
322 IFB$="E"THENPRINT"ZAP!******":E=E-7:MN=1
323 IFB$="W"ORB$="N"THENPRINT"CRUNCH!***":E=E-14:MN=3
324 IFB$="S"THENMN=4
325 GOTO211
330 GOSUB1000:PRINT"YOU SEE TREES GROWING SIDE BY SIDE AND  NOTHING EAST."
331 GOSUB1500
332 IFB$="W"ORB$="S"THENPRINT"CRACK!***":E=E-11:MN=4
333 IFB$="N"THENMN=3
334 IFB$="E"THENPRINT"CLINK!!**":E=E-3:MN=5:GOTO9500
335 GOTO211
340 GOSUB1000:PRINT"YOU'RE IN THE MIDDLE OF AN INTERSECTION WITH CARS AROUND."
341 GOSUB1500
342 IFB$="N"THENMN=1
343 IFB$="S"THENPRINT"ENERGY BUZZZZ!!**":E=E+20:MN=8
344 IFB$="E"THENMN=6
345 IFB$="W"THENMN=4
346 GOTO211
350 GOSUB1000:PRINT"A BLINDING RED BLOB IS GLOWING BRIGHTLY FROM THE EAST."
351 GOSUB1500
352 IFB$="N"THENMN=2
353 IFB$="S"THENPRINT"CRASH!!***":MN=6
354 IFB$="E"THENPRINT"ENERGY BUZZZ!!**":E=E+15:MN=7
355 IFB$="W"THENMN=5
356 GOTO211
360 GOSUB1000:PRINT"YOUR IN A JUNKYARD AND THERE IS A LARGE MACHINE DUE SOUTH."
361 GOSUB1500
362 IFB$="W"THENPRINT"ZZZAP!!***":E=E-17:MN=6
363 IFB$="E"ORB$="N"THENPRINT"DING!!!***":E=E-5:MN=7
364 IFB$="S"THENPRINT"ZZZAP!!***":E=E-7:MN=10
365 GOTO211
370 GOSUB1000:PRINT"YOU FIND YOURSELF BEHIND A LARGE NUMBER OF BUILDINGS."
371 GOSUB1500
372 IFB$="S"ORB$="E"ORB$="W"THENPRINT"CLASHH!!**":E=E-13:MN=8
373 IFB$="N"THENPRINT"SMALL ZAP...":E=E+2:MN=5
374 GOTO211
380 GOSUB1000:PRINT"THERE IS A STRONG BREEZE AND IN THE DUSTYOU SEE A MACHINE."
381 GOSUB1500
382 IFB$="N"THENMN=9:GOTO9800
383 IFB$="W"ORB$="S"THENPRINT"TINKLE...CRASH**":E=E-9:MN=9
384 IFB$="E"THENPRINT"ZZZAP!!***":MN=10:E=E-24
385 GOTO211
390 GOSUB1000:PRINT"YOU SEE SCRAPMETAL-LIGHTS WEST-MAGNETIC DRAG SOUTH."
391 GOSUB1500
392 IFB$="S"THENPRINT"SWOOOOSH!!!****OWCH!!":E=E-26
393 IFB$="W"THENPRINT"ZZZZAP!!**":E=E-15:MN=9
394 IFB$="E"THENMN=10:PQ=5:GOTO9000
395 IFB$="N"THENPRINT"ZZAP!!***":E=E-19:MN=7
396 GOTO211
600 E=E+75:POKE53280,4:PN=5:MN=1
601 IFT$="KEY/PLAN/FQ"ORT$="KEY/FQ"THENT$="FQ":GOTO605
602 T$="EMPTY"
605 GOSUB1000:PRINT"******WELCOME TO THE CITY BARSTRA*******":FORA=1TO1500:NEXTA
606 PRINT"[147]YOUR MESSAGE OF MISSION INSTRUCTION IS  COMING UP...."
607 FORA=1TO2500:NEXTA
608 PRINT"[147]MISSION:YOU ARE NOW IN A VERY LARGELY   POPULATED CITY.
609 [153]"YOU HAVESYS";E"ENERGY UNITS LEFT.
610 PRINT"FIND AN ELECTRICAL FACILITY AND CHARGE  YOUR ENERGY TO 400-500 UNITS."
611 PRINT"ALSO BEWARE OF ENERGY SURGES WHILE YOU  ARE FULLY CHARGED."
612 PRINT"FIND THE RADIO ROOM AND ENTER YOUR OWN  FREQUENCY NUMBER AND CUT OFF"
613 PRINT"ALL OUTGOING SIGNALS TO INTERCEPT THE   DEATH OF A CITY."
614 PRINT"TRAVEL TO THE BOMB AND CUT THE FUSE!              ***HIT ANY KEY***"
615 GETA$:IFA$><""THENGOTO618
616 GOTO615
618 GOSUB1000:PRINT"REMEMBER THERE IS NO EXITING BARSTRA!!"
619 FORA=1TO1000:NEXTA:IFE<5THENGOTO50000
620 IFMN=1THEN700
621 IFMN=2THEN710
622 IFMN=3THEN720
623 IFMN=4THEN730
624 IFMN=5THEN740
625 IFMN=6THEN750
626 IFMN=7THEN760
627 IFMN=8THEN770
628 IFMN=9THEN780
629 IFMN=10THEN790
630 IFMN=11THEN800
631 IFMN=12THEN810
632 IFMN=13THEN820
633 IFMN=14THEN830
634 IFMN=15THEN840
635 IFMN=16THEN850
636 IFMN=17THEN860
637 IFMN=18THEN870
638 IFMN=19THEN880
639 IFMN=20THEN890
640 IFMN=21THEN900
641 IFMN=22THENGOTO20000
642 GOTO620
650 PRINT"CANNOT TRAVEL THIS WAY.."
655 RETURN
700 GOSUB1000:PRINT"JUST INSIDE OF BARSTRA YOU FEEL A LARGE ELECTRO MAGNET."
701 GOSUB1500:IFB$=""THENGOTO700
702 IFB$="W"THENGOSUB650
703 IFB$="S"THENPRINT"FIZZZ...":E=E-27:MN=2
704 IFB$="N"THENPRINT"**NO EXIT**":MN=1
705 IFB$="E"THENMN=17
706 GOTO619
710 GOSUB1000:PRINT"ALLEY TO THE WEST-MAIN STREET SOUTH":GOSUB1500
711 IFB$=""THEN710
712 IFB$="N"THENMN=1
713 IFB$="S"THENMN=3
714 IFB$="E"THENGOSUB650
715 IFB$="W"THENMN=4
716 GOTO619
720 GOSUB1000:PRINT"THERE IS A LARGE YELLOW BLOCK IN THE    WALL SCREECHING."
721 GOSUB1500:IFB$=""THENGOTO720
722 IFB$="N"THENMN=2
723 IFB$="S"THENPRINT"BILZZZ**":E=E+16:MN=13
724 IFB$="W"THENGOSUB650
725 IFB$="E"THENMN=16
726 GOTO619
730 GOSUB1000:PRINT"YOUR JUST OUTSIDE A SHOPPING MALL THAT  IS CLOSED."
731 GOSUB1500:IFB$=""THENGOTO730
732 IFB$="S"THENGOSUB650
733 IFB$="E"THENMN=2
734 IFB$="W"THENMN=5
735 IFB$="N"THENPRINT"ZUZZ**":E=E+12:MN=7
736 GOTO619
740 GOSUB1000:PRINT"THERE IS A LARGE OPENING ON THE GROUND  AND IN THE WALL."
741 GOSUB1500:IFB$=""THENGOTO740
742 IFB$="W"THENPRINT"**TELEPORT":MN=1
743 IFB$="S"THENGOSUB650
744 IFB$="N"THENPRINT"FIZZZZZ**":E=E-14:MN=6
745 IFB$="E"THENMN=4
746 GOTO619
750 GOSUB1000:PRINT"YOU SEE LARGE STEAMING PIPES ALL AROUND.":GOSUB1500
751 IFB$=""THENGOTO750
752 IFB$="N"THENPRINT"TELEPORT**":E=E-4:MN=3
753 IFB$="W"THENGOSUB650
754 IFB$="S"THENMN=5
755 IFB$="E"THENMN=7
756 GOTO619
760 GOSUB1000:PRINT"THERE IS ANOTHER MAGNETIC PULL FELT TO  THE EAST."
761 GOSUB1500:IFB$=""THENGOTO760
762 IFB$="N"THENGOSUB650
763 IFB$="E"THENPRINT"FIZZ*":E=E-6:MN=7:GOTO20500
764 IFB$="W"THENMN=6
765 IFB$="S"THENPRINT"HUMMMZZ**":E=E+19:MN=4
766 GOTO619
770 GOSUB1000:PRINT"YOU'RE INSIDE A FACTORY WITH LARGE TUBS OF ACID WEST."
771 GOSUB1500:IFB$=""THENGOTO770
772 IFB$="N"THENPRINT"VUZZ**":E=E-9:MN=9
773 IFB$="S"THENGOSUB650
774 IFB$="W"THENPRINT"BUBBLE..FIZZ..":E=E-33:GOTO619
775 IFB$="E"THENMN=10:GOTO30000
776 GOTO619
780 GOSUB1000:PRINT"YOU CAN SEE A LARGE FENCE DUE SOUTH EAST"
781 GOSUB1500:IFB$=""THENGOTO780
782 IFB$="N"THENGOSUB650
783 IFB$="S"THENPRINT"ZIZ**":E=E+4:MN=8
784 IFB$="E"THENMN=10
785 IFB$="W"THENMN=11
786 GOTO619
790 GOSUB1000:PRINT"YOU ARE AROUND A LARGE AMOUNT OF COAL   AND IT SLOWS YOU"
791 GOSUB1500:IFB$=""THENGOTO790
792 IFB$="N"ORB$="E"THENPRINT"SWOOOSH**YOU'RE STAGGARD!":E=E-39
793 IFB$="W"THENMN=9
794 IFB$="S"THENGOSUB650
795 GOTO619
800 GOSUB1000:PRINT"YOUR ATOP A MOUNTAIN AND DOWN FROM YOU  IS A FACTORY."
801 GOSUB1500:IFB$=""THENGOTO800
802 IFB$="N"THENGOSUB650
803 IFB$="W"THENPRINT"**TELEPORT":MN=4
804 IFB$="S"THENPRINT"SUTZZZ**":E=E-17:MN=12
805 IFB$="E"THENMN=9
806 GOTO619
810 GOSUB1000:PRINT"YOU ARE IN SOME WATER AND DISORIENTED-":GOSUB1500
811 IFB$=""THENGOTO810
812 IFB$="N"THENMN=11
813 IFB$="S"THENGOSUB650
814 IFB$="W"THENPRINT"SPLASHHH**":E=E-14:GOTO619
815 IFB$="E"THENMN=13
816 GOTO619
820 GOSUB1000:PRINT"YOU SPY SOMETHING SHINING TO THE WEST   AND A GREAT GLOW"
821 GOSUB1500:IFB$=""THENGOTO820
822 IFB$="N"THENMN=3
823 IFB$="S"THENGOSUB650
824 IFB$="W"THENMN=12:GOTO30500
825 IFB$="E"THENPRINT"*SPECIAL VEELA TELEPORT!!":FORA=1TO2500:NEXT:E=200:GOTO827
826 GOTO619
827 T$="EMPTY":GOTO200
830 GOSUB1000:PRINT"YOUR BESIDE A FENCED IN FIELD JUST OUT  OF BARSTRA."
831 GOSUB1500:IFB$=""THENGOTO830
832 IFB$="N"THENMN=15
833 IFB$="S"THENGOSUB650
834 IFB$="E"THENPRINT"ENERGY SURGE**":E=E+16:MN=20
835 IFB$="W"THENPRINT"CRASHHH****":E=E-18
836 GOTO619
840 GOSUB1000:PRINT"YOU'RE INSIDE A RESIDENCE AND YOU HEAR  MANY BIRDS."
841 GOSUB1500:IFB$=""THENGOTO840
842 IFB$="N"THENGOSUB650
843 IFB$="S"THENMN=14
844 IFB$="E"THENMN=19
845 IFB$="W"THENMN=16
846 GOTO619
850 GOSUB1000:PRINT"YOU FIND YOURSELF BEHIND A DRUG STORE   AND YOU FEEL LOST."
851 GOSUB1500:IFB$=""THENGOTO850
852 IFB$="N"THENMN=17:GOTO40000
853 IFB$="S"THENGOSUB650
854 IFB$="W"THENMN=3
855 IFB$="E"THENMN=15
856 GOTO619
860 GOSUB1000:PRINT"YOU'RE FOLLOWING A WALL DOWN AN OLD OLD BRICK STREET."
861 GOSUB1500:IFB$=""THENGOTO860
862 IFB$="N"THENGOSUB650
863 IFB$="S"THENPRINT"BAZZZZ**":E=E+26:MN=16
864 IFB$="E"THENMN=18
865 IFB$="W"THENMN=1
866 GOTO619
870 GOSUB1000:PRINT"YOU RUN INTO ALOT OF TREES AND OTHER    TOUGH ROBOTS.."
871 GOSUB1500:IFB$=""THENGOTO870
872 IFB$="N"THENGOSUB650
873 IFB$="S"THENMN=19
874 IFB$="W"THENMN=17
875 IFB$="E"THENPRINT"BEEP BUZZ SMASH**":E=E-20:GOSUB650
876 GOTO619
880 GOSUB1000:PRINT"YOUR JUST OUTSIDE A RESIDENCE AND THE   AIR IS CLEAR."
881 GOSUB1500:IFB$=""THENGOTO880
882 IFB$="N"THENMN=18
883 IFB$="S"THENGOSUB650
884 IFB$="W"THENMN=15
885 IFB$="E"THENPRINT"**TELEPORT":MN=1
886 GOTO619
890 GOSUB1000:PRINT"YOU'RE TRAVELING DOWN AN OLD DIRT ROAD  SYSTEMS BUZZ"
891 GOSUB1500:IFB$=""THEN890
892 IFB$="N"THENGOSUB650
893 IFB$="S"THENMN=14
894 IFB$="E"THENMN=21
895 IFB$="W"THENPRINT"TELEPORT*":MN=18
896 GOTO619
900 GOSUB1000:PRINT"YOU FIND GATES OPEN AHEAD AND A TELEPORTMACHINE SIGN."
901 GOSUB1500:IFB$=""THENGOTO900
902 IFB$="N"THENGOSUB650
903 IFB$="S"THENPRINT"TING ZZZZZ**":E=E-13:MN=22
904 IFB$="E"THENPRINT"TELEPORT*":MN=17
905 IFB$="W"THENMN=20
906 GOTO619
1000 PRINT"":FORA=1TO22:PRINT"                                        ":NEXTA
1001 PRINT"ENERGY:[158]";E"DATA:[158]";PN"UNITS:[158]";T$""
1002 IFE>500THENPRINT"ENERGY OVERLOAD****":GOTO50000
1003 RETURN
1500 B$="":INPUT"S=SOUTH N=NORTH E=EAST W=WEST";B$
1501 IFB$=""THENPRINT"NO DESIRED DIRECTION?":GOTO1500
1505 E=E-4:RETURN
9000 GOSUB1000
9005 PRINT"YOU FIND A BLACK BOX WITH AND INTERFACE ON ITS SIDE"
9010 INPUT"DO YOU WISH TO CONNECT Y=YES N=NO";B$
9015 IFB$=""THENGOTO9000
9020 IFB$="Y"THENE=E-9:PN=PN+INT(RND(1)*20)+10:GOSUB1000
9021 IFB$="N"THENGOTO9023
9022 INPUT"DO YOU WISH TO RECONNECT Y=YES N=NO";B$:GOTO9015
9023 IFT$="KEY"THENT$="KEY/PLAN"
9024 IFT$="EMPTY"THENT$="PLAN"
9025 IFT$="KEY/FQ"THENT$="KEY/PLAN/FQ"
9026 IFT$="FQ"THENT$="KEY/FQ"
9027 IFPN>125THENPRINT"[147][158]DATA OVERLOAD JAMMED....":FORA=1TO1000:NEXTA:GOTO50000
9028 GOTO211
9500 GOSUB1000
9505 PRINT"YOU'VE RUN INTO SOME KEYS DO YOU WISH TOPICK THEM UP"
9510 INPUT"Y=YES N=NO";B$
9515 IFB$="N"THENGOTO211
9520 IFB$="Y"THENE=E-10:IFT$="PLAN"THENT$="KEY/PLAN"
9521 IFT$="EMPTY"THENT$="KEY"
9522 IFT$="FQ"THENT$="KEY/FQ"
9523 IFT$="PLAN/FQ"THENT$="KEY/PLAN/FQ"
9525 GOTO211
9800 GOSUB1000
9801 MQ=RND(1)
9805 PRINT"YOU'VE RUN INTO WHAT SEEMS AS A SODA    MACHINE AND IT SPEAKS!"
9810 FORA=1TO1100:NEXTA
9815 PRINT"''THE RADIO ROOM FREQUENCY IS''[159]        ";MQ"":FORA=1TO1000:NEXTA
9816 IFT$="EMPTY"THENT$="FQ"
9817 IFT$="KEY"THENT$="KEY/FQ"
9818 IFT$="PLAN"THENT$="PLAN/FQ"
9819 IFT$="KEY/PLAN"THENT$="KEY/PLAN/FQ"
9820 FQ=MQ:GOTO211
10000 POKE53280,5
10001 PRINT"[147]*CHECKING ITEMIZED UNITS FOR HOVER CRAFT":FORA=1TO1500:NEXTA
10005 IFPN<95THENPRINT"1. LOW ON DATA TO FLY CRAFT":GOTO10015
10010 IFT$><"KEY/FQ"ORT$><"KEY/PLAN"ORT$><"KEY/PLAN/FQ"THENPRINT"2. NO KEY"
10011 IFT$="KEY/PLAN"ORT$="KEY/PLAN/FQ"ORT$="KEY/FQ"THENGOTO10020
10012 IFT$="KEY"THENPRINT"2. O.K.          "
10013 IFPN>95THENPRINT"1. O.K.           "
10015 FORA=1TO1500:NEXTA:PRINT"[147]":GOTO100
10020 FORA=1TO200:NEXTA:PRINT"1. O.K.     "
10025 PRINT"2. O.K.        ":FORA=1TO1500:NEXTA
10030 POKE53280,3:PRINT"[147]YOU HAVE SUCCESSFULLY STARTED THE CRAFT"
10035 PRINT"NOW FEEDING DATA FOR THE CITY BARSTRA...":FORA=1TO2500:NEXTA
10040 E=E+75:FORB=1TO20:PN=PN-10:IFPN<5THENGOTO10049
10045 GOSUB1000:NEXTB
10049 IFPQ>1THENGOTO10055
10051 PRINT"[147][158]DATA DOESN'T COORELATE TO THE SPECIFIC  COORDINATES TO MISSION."
10052 PRINT"RETURN TO VEELA FOR CORRECT DATA TO     COMPLETE MISSION"
10053 FORA=1TO3000:NEXTA:PRINT"[147]":GOTO100
10055 PRINT"COORDINATES SET-ON COURSE TO BARSTRA."
10065 FORA=1TO2000:NEXTA:GOTO600
20000 PRINT"[147]":GOSUB1000:PRINT"*******YOU ARE IN THE RADIO ROOM!*******"
20005 FORA=1TO2500:NEXTA
20006 IFE<400THENPRINT"[159]TELEPORT[158]-LOW ENERGY*SEE PLANT--":MN=15:GOTO20026
20007 IFFQ><MQTHENPRINT"[159]WRONG FQ-[158]**EXIT RADIO ROOM**":MN=21:GOTO20026
20010 PRINT"[147]BREAKING FQ WILL ABSORB 400 ENERGY UNITS":INPUT"E=ENTER A=ABORT";B$
20011 IFB$=""THENGOTO20006
20012 IFB$="A"THENPRINT"**ABORT**":FORA=1TO2000:NEXTA:MN=21:GOTO620
20013 PRINT"[147]CHECKING FREQUENCY AND BREAKING SIGNAL**":FORA=1TO500:NEXTA
20020 PRINT"**FREQUENCY MATCH AND BROKEN"
20021 FORA=1TO60:POKE53280,INT(RND(1)*7)+1:NEXTA
20025 MN=21:E=E-400:POKE53280,4:GOTO619
20026 FORA=1TO1500:NEXTA:GOTO619
20500 PRINT"[147]*YOU HAVE FOUND A BOMB AND IF YOU ARE TO DISARM IT BEFORE YOU CUT";
20501 PRINT"THE FREQUENCY AND HAVE NO CUTTING TOOL  YOU WOULD SURELY PERISH!! "
20502 FORA=1TO2000:NEXTA
20503 INPUT"DO YOU WISH TO DISARM IT Y=YES N=NO";B$
20504 IFB$="N"THENGOTO620
20505 IFT$="CUT"ORT$="FQ/CUT"ORT$="FQ/INTER/CUT"THENGOTO20550
20506 GOTO50000
20550 FORA=1TO50:PRINT"[159]********SUCCESSFUL DISSARMAMENT!********"
20555 PRINT"********SUCCESSFUL DISSARMAMENT!********"
20560 POKE53280,INT(RND(1)*7)+1:NEXTA:GOTO60000
30000 PRINT"[147]HERE AT THE ELECTRICAL PLANT YOU NEED   A SPECIAL INTERFACE";
30005 PRINT" TO RECIEVE ENERGY..."
30010 PRINT"......CHECKING FOR INTERFACE......"
30015 FORA=1TO2000:NEXTA
30020 IFT$="EMPTY"ORT$="FQ"ORT$="FQ/CUT"THENPRINT"DENIED..........":GOTO619
30025 PRINT"ACCEPTED........":FORA=1TO1500:NEXTA
30030 FORZ=1TO500:PRINT"[147]YOUR ENERGY IS AT";E"UNITS"
30035 PRINT"**HIT ANY KEY TO STOP INPUT OF ENERGY!":E=E+4
30040 IFE>500THENPRINT"[147]ENERGY OVERLOAD**":FORA=1TO1500:NEXTA:GOTO50000
30045 GETA$:IFA$><""THENGOTO30060
30046 NEXTZ
30060 GOSUB1000:GOTO620
30500 INPUT"[147]YOU FIND AN INTERFACE ADAPTOR DO YOU    USE IT Y=YES N=NO";B$
30510 IFB$=""THENGOTO30500
30515 IFB$="N"THENGOTO620
30520 IFT$="FQ"THENT$="FQ/INTER"
30525 IFT$="EMPTY"THENT$="INTER"
30530 IFT$="FQ/CUT"THENT$="FQ/INTER/CUT"
30535 GOTO620
40000 INPUT"[147]HERE'S A CUTTING TOOL DO YOU WISH TO    PICK IT UP Y=YES N=NO";B$
40010 IFB$=""THENGOTO40000
40015 IFB$="N"THENGOTO620
40020 IFT$="FQ"THENT$="FQ/CUT"
40025 IFT$="EMPTY"THENT$="CUT"
40030 IFT$="FQ/INTER"THENT$="FQ/INTER/CUT"
40035 IFT$="INTER"THENT$="INTER/CUT"
40040 GOTO620
50000 PRINT"[147]":POKE53281,4:POKE53280,4
50010 PRINT"[144]FOR ONE REASON OR ANOTHER THIS ROBOT    UNIT CANNOT GO ONWARD"
50015 INPUT"DO YOU WISH TO GO TO THE BOX Y=YES N=NO ";B$
50020 IFB$="Y"THENXY=5:GOTO1
50021 FORA=1TO100:PRINT"[147]GAME OVER!":NEXTA
50022 POKE53280,0:POKE53281,0
50023 GOTO50023
60000 PRINT"[147][144]MISSION COMPLETE"
60001 POKE53280,2:POKE53281,2
60002 FORA=1TO5000:NEXTA:GOTO50021